home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / PD 3.adf / Drw / qst < prev    next >
Text File  |  1986-11-20  |  11KB  |  213 lines
  1. \
  2. \  great big sin table: 4096 Longs for the fastest sin in the west
  3. \ (In Jforth, I have a special "," word which I can't figure out
  4. \ how to use here... the idea is to Comma the incoming stream as a hex #
  5. \ without doing a (sloooow) find )
  6. \
  7. decimal
  8. 8192 minimum.object
  9. anew qsin.spot
  10. \
  11. Hex
  12. ?Align4
  13. \
  14. create QsinTable
  15. 0 , C9 , 192 , 25B , 324 , 3ED , 4B6 , 57F ,   \ 0
  16. 648 , 711 , 7D9 , 8A2 , 96B , A33 , AFB , BC4 ,   \ 8
  17. C8C , D54 , E1C , EE4 , FAB , 1073 , 113A , 1201 ,   \ 10
  18. 12C8 A69C , FFFFA60C ,   \ 278
  19. FFFFA57E , FFFFA4F0 , FFFFA463 , FFFFA3D7 , 
  20. FFFFA34C , FFFFA2C2 , FFFFA238 , FFFFA1B0 ,   \ 280
  21. FFFFA129 , FFFFA0A2 , FFFFA01C , FFFF9F98 , 
  22. FFFF9F14 , FFFF9E91 , FFFF9E0F , FFFF9D8E ,   \ 288
  23. FFFF9D0E , FFFF9C8F , FFFF9C11 , FFFF9B94 , 
  24. FFFF9B17 , FFFF9A9C , FFFF9A22 , FFFF99A9 ,   \ 290
  25. FFFF9930 , FFFF98B9 , FFFF9843 , FFFF97CE , 
  26. FFFF9759 , FFFF96E6 , FFFF9674 , FFFF9603 ,   \ 298
  27. FFFF9592 , FFFF9523 , FFFF94B5 , FFFF9448 , 
  28. FFFF93DC , FFFF9371 , FFFF9301 ,   \ 50
  29. 41CE , 427A , 4326 , 43D1 , 447B , 4524 , 45CD , 4675 ,   \ 58
  30. 471D , 47C4 , 486A , 490F , 49B4 , 4A58 , 4AFB , 4B9E ,   \ 60
  31. 4C40 , 4CE1 , 4D81 , 4E21 , 4EC0 , 4F5E , 4FFB , 5098 ,   \ 68
  32. 5134 , 51CF , 5269 , 5303 , 539B , 5433 , 54CA , 5560 ,   \ 70
  33. 55F6 , 568A , 571E , 57B1 , 5843 , 58D4 , 5964 , 59F4 ,   \ 78
  34. 5A82 , 5B10 , 5B9D , 5C29 , 5CB4 , 5D3E , 5DC8 , 5E50 ,   \ 80
  35. 5ED7 , 5F5E , 5FE4 , 6068 , 60EC , 616F , 61F1 , 6272 ,   \ 88
  36. 62F2 , 6371 , 63EF , 646C , 64E9 , 6564 , 65DE , 6657 ,   \ 90
  37. 66D0 , 6747 , 67BD , 6832 , 68A7 , 691A , 698C , 69FD ,   \ 98
  38. 6A6E , 6ADD , 6B4B , 6BB8 , 6C24 , 6C8F , 6CF9 , 6D62 ,   \ A0
  39. 6DCA , 6E31 , 6E97 , 6EFB , 6F5F , 6FC2 , 7023 , 7083 ,   \ A8
  40. 70E3 , 7141 , 719E , 71FA , 7255 , 72AF , 7308 , 735F ,   \ B0
  41. 73B6 , 740B , 7460 , 74B3 , 7505 , 7556 , 75A6 , 75F4 ,   \ B8
  42. 7642 , 768E , 76D9 , 7723 , 776C , 77B4 , 77FB , 7840 ,   \ C0
  43. 7885 , 78C8 , 790A , 794A , 798A , 79C9 , 7A06 , 7A42 ,   \ C8
  44. 7A7D , 7AB7 , 7AEF , 7B27 , 7B5D , 7B92 , 7BC6 , 7BF9 ,   \ D0
  45. 7C2A , 7C5A , 7C89 , 7CB7 , 7CE4 , 7D0F , 7D3A , 7D63 ,   \ D8
  46. 7D8A , 7DB1 , 7DD6 , 7DFB , 7E1E , 7E3F , 7E60 , 7E7F ,   \ E0
  47. 7E9D , 7EBA , 7ED6 , 7EF0 , 7F0A , 7F22 , 7F38 , 7F4E ,   \ E8
  48. 7F62 , 7F75 , 7F87 , 7F98 , 7FA7 , 7FB5 , 7FC2 , 7FCE ,   \ F0
  49. 7FD9 , 7FE2 , 7FEA , 7FF1 , 7FF6 , 7FFA , 7FFE , 7FFF ,   \ F8
  50. 8000 , 7FFF , 7FFE , 7FFA , 7FF6 , 7FF1 , 7FEA , 7FE2 ,   \ 100
  51. 7FD9 , 7FCE , 7FC2 , 7FB5 , 7FA7 , 7F98 , 7F87 , 7F75 ,   \ 108
  52. 7F62 , 7F4E , 7F38 , 7F22 , 7F0A , 7EF0 , 7ED6 , 7EBA ,   \ 110
  53. 7E9D , 7E7F , 7E60 , 7E3F , 7E1E , 7DFB , 7DD6 , 7DB1 ,   \ 118
  54. 7D8A , 7D63 , 7D3A , 7D0F , 7CE4 , 7CB7 , 7C89 , 7C5A ,   \ 120
  55. 7C2A , 7BF9 , 7BC6 , 7B92 , 7B5D , 7B27 , 7AEF , 7AB7 ,   \ 128
  56. 7A7D , 7A42 , 7A06 , 79C9 , 798A , 794A , 790A , 78C8 ,   \ 130
  57. 7885 , 7840 , 77FB , 77B4 , 776C , 7723 , 76D9 , 768E ,   \ 138
  58. 7642 , 75F4 , 75A6 , 7556 , 7505 , 74B3 , 7460 , 740B ,   \ 140
  59. 73B6 , 735F , 7308 , 72AF , 7255 , 71FA , 719E , 7141 ,   \ 148
  60. 70E3 , 7083 , 7023 , 6FC2 , 6F5F , 6EFB , 6E97 , 6E31 ,   \ 150
  61. 6DCA , 6D62 , 6CF9 , 6C8F , 6C24 , 6BB8 , 6B4B , 6ADD ,   \ 158
  62. 6A6E , 69FD , 698C , 691A , 68A7 , 6832 , 67BD , 6747 ,   \ 160
  63. 66D0 , 6657 , 65DE , 6564 , 64E9 , 646C , 63EF , 6371 ,   \ 168
  64. 62F2 , 6272 , 61F1 , 616F , 60EC , 6068 , 5FE4 , 5F5E ,   \ 170
  65. 5ED7 , 5E50 , 5DC8 , 5D3E , 5CB4 , 5C29 , 5B9D , 5B10 ,   \ 178
  66. 5A82 , 59F4 , 5964 , 58D4 , 5843 , 57B1 , 571E , 568A ,   \ 180
  67. 55F6 , 5560 , 54CA , 5433 , 539B , 5303 , 5269 , 51CF ,   \ 188
  68. 5134 , 5098 , 4FFB , 4F5E , 4EC0 , 4E21 , 4D81 , 4CE1 ,   \ 190
  69. 4C40 , 4B9E , 4AFB , 4A58 , 49B4 , 490F , 486A , 47C4 ,   \ 198
  70. 471D , 4675 , 45CD , 4524 , 447B , 43D1 , 4326 , 427A ,   \ 1A0
  71. 41CE , 4121 , 4074 , 3FC6 , 3F17 , 3E68 , 3DB8 , 3D08 ,   \ 1A8
  72. 3C57 , 3BA5 , 3AF3 , 3A40 , 398D , 38D9 , 3825 , 3770 ,   \ 1B0
  73. 36BA , 3604 , 354E , 3497 , 33DF , 3327 , 326E , 31B5 ,   \ 1B8
  74. 30FC , 3042 , 2F87 , 2ECC , 2E11 , 2D55 , 2C99 , 2BDC ,   \ 1C0
  75. 2B1F , 2A62 , 29A4 , 28E5 , 2827 , 2768 , 26A8 , 25E8 ,   \ 1C8
  76. 2528 , 2467 , 23A7 , 22E5 , 2224 , 2162 , 209F , 1FDD ,   \ 1D0
  77. 1F1A , 1E57 , 1D93 , 1CD0 , 1C0C , 1B47 , 1A83 , 19BE ,   \ 1D8
  78. 18F9 , 1833 , 176E , 16A8 , 15E2 , 151C , 1455 , 138F ,   \ 1E0
  79. 12C8 , 1201 , 113A , 1073 , FAB , EE4 , E1C , D54 ,   \ 1E8
  80. C8C , BC4 , AFB , A33 , 96B , 8A2 , 7D9 , 711 ,   \ 1F0
  81. 648 , 57F , 4B6 , 3ED , 324 , 25B , 192 , C9 ,   \ 1F8
  82. 0 , FFFFFF37 , FFFFFE6E , FFFFFDA5 ,
  83.  FFFFFCDC , FFFFFC13 , FFFFFB4A , FFFFFA81 ,   \ 200
  84. FFFFF9B8 , FFFFF8EF , FFFFF827 , FFFFF75E , 
  85. FFFFF695 , FFFFF5CD , FFFFF505 , FFFFF43C ,   \ 208
  86. FFFFF374 , FFFFF2AC , FFFFF1E4 , FFFFF11C , 
  87. FFFFF055 , FFFFEF8D , FFFFEEC6 , FFFFEDFF ,   \ 210
  88. FFFFED38 , FFFFEC71 , FFFFEBAB , FFFFEAE4 , 
  89. FFFFEA1E , FFFFE958 , FFFFE892 , FFFFE7CD ,   \ 218
  90. FFFFE707 , FFFFE642 , FFFFE57D , FFFFE4B9 , 
  91. FFFFE3F4 , FFFFE330 , FFFFE26D , FFFFE1A9 ,   \ 220
  92. FFFFE0E6 , FFFFE023 , FFFFDF61 , FFFFDE9E , 
  93. FFFFDDDC , FFFFDD1B , FFFFDC59 , FFFFDB99 ,   \ 228
  94. FFFFDAD8 , FFFFDA18 , FFFFD958 , FFFFD898 , 
  95. FFFFD7D9 , FFFFD71B , FFFFD65C , FFFFD59E ,   \ 230
  96. FFFFD4E1 , FFFFD424 , FFFFD367 , FFFFD2AB , 
  97. FFFFD1EF , FFFFD134 , FFFFD079 , FFFFCFBE ,   \ 238
  98. FFFFCF04 , FFFFCE4B , FFFFCD92 , FFFFCCD9 , 
  99. FFFFCC21 , FFFFCB69 , FFFFCAB2 , FFFFC9FC ,   \ 240
  100. FFFFC946 , FFFFC890 , FFFFC7DB , FFFFC727 , 
  101. FFFFC673 , FFFFC5C0 , FFFFC50D , FFFFC45B ,   \ 248
  102. FFFFC3A9 , FFFFC2F8 , FFFFC248 , FFFFC198 , 
  103. FFFFC0E9 , FFFFC03A , FFFFBF8C , FFFFBEDF ,   \ 250
  104. FFFFBE32 , FFFFBD86 , FFFFBCDA , FFFFBC2F , 
  105. FFFFBB85 , FFFFBADC , FFFFBA33 , FFFFB98B ,   \ 258
  106. FFFFB8E3 , FFFFB83C , FFFFB796 , FFFFB6F1 , 
  107. FFFFB64C , FFFFB5A8 , FFFFB505 , FFFFB462 ,   \ 260
  108. FFFFB3C0 , FFFFB31F , FFFFB27F , FFFFB1DF , 
  109. FFFFB140 , FFFFB0A2 , FFFFB005 , FFFFAF68 ,   \ 268
  110. FFFFAECC , FFFFAE31 , FFFFAD97 , FFFFACFD , 
  111. FFFFAC65 , FFFFABCD , FFFFAB36 , FFFFAAA0 ,   \ 270
  112. FFFFAA0A , FFFFA976 , FFFFA8E2 , FFFFA84F , 
  113. FFFFA7BD , FFFFA72C , FFFFA69C , FFFFA60C ,   \ 278
  114. FFFFA57E , FFFFA4F0 , FFFFA463 , FFFFA3D7 , 
  115. FFFFA34C , FFFFA2C2 , FFFFA238 , FFFFA1B0 ,   \ 280
  116. FFFFA129 , FFFFA0A2 , FFFFA01C , FFFF9F98 , 
  117. FFFF9F14 , FFFF9E91 , FFFF9E0F , FFFF9D8E ,   \ 288
  118. FFFF9D0E , FFFF9C8F , FFFF9C11 , FFFF9B94 , 
  119. FFFF9B17 , FFFF9A9C , FFFF9A22 , FFFF99A9 ,   \ 290
  120. FFFF9930 , FFFF98B9 , FFFF9843 , FFFF97CE , 
  121. FFFF9759 , FFFF96E6 , FFFF9674 , FFFF9603 ,   \ 298
  122. FFFF9592 , FFFF9523 , FFFF94B5 , FFFF9448 , 
  123. FFFF93DC , FFFF9371 , FFFF9307 , FFFF929E ,   \ 2A0
  124. FFFF9236 , FFFF91CF , FFFF9169 , FFFF9105 , 
  125. FFFF90A1 , FFFF903E , FFFF8FDD , FFFF8F7D ,   \ 2A8
  126. FFFF8F1D , FFFF8EBF , FFFF8E62 , FFFF8E06 , 
  127. FFFF8DAB , FFFF8D51 , FFFF8CF8 , FFFF8CA1 ,   \ 2B0
  128. FFFF8C4A , FFFF8BF5 , FFFF8BA0 , FFFF8B4D , 
  129. FFFF8AFB , FFFF8AAA , FFFF8A5A , FFFF8A0C ,   \ 2B8
  130. FFFF89BE , FFFF8972 , FFFF8927 , FFFF88DD , 
  131. FFFF8894 , FFFF884C , FFFF8805 , FFFF87C0 ,   \ 2C0
  132. FFFF877B , FFFF8738 , FFFF86F6 , FFFF86B6 , 
  133. FFFF8676 , FFFF8637 , FFFF85FA , FFFF85BE ,   \ 2C8
  134. FFFF8583 , FFFF8549 , FFFF8511 , FFFF84D9 , 
  135. FFFF84A3 , FFFF846E , FFFF843A , FFFF8407 ,   \ 2D0
  136. FFFF83D6 , FFFF83A6 , FFFF8377 , FFFF8349 , 
  137. FFFF831C , FFFF82F1 , FFFF82C6 , FFFF829D ,   \ 2D8
  138. FFFF8276 , FFFF824F , FFFF822A , FFFF8205 , 
  139. FFFF81E2 , FFFF81C1 , FFFF81A0 , FFFF8181 ,   \ 2E0
  140. FFFF8163 , FFFF8146 , FFFF812A , FFFF8110 , 
  141. FFFF80F6 , FFFF80DE , FFFF80C8 , FFFF80B2 ,   \ 2E8
  142. FFFF809E , FFFF808B , FFFF8079 , FFFF8068 , 
  143. FFFF8059 , FFFF804B , FFFF803E , FFFF8032 ,   \ 2F0
  144. FFFF8027 , FFFF801E , FFFF8016 , FFFF800F , 
  145. FFFF800A , FFFF8006 , FFFF8002 , FFFF8001 ,   \ 2F8
  146. FFFF8000 , FFFF8001 , FFFF8002 , FFFF8006 , 
  147. FFFF800A , FFFF800F , FFFF8016 , FFFF801E ,   \ 300
  148. FFFF8027 , FFFF8032 , FFFF803E , FFFF804B , 
  149. FFFF8059 , FFFF8068 , FFFF8079 , FFFF808B ,   \ 308
  150. FFFF809E , FFFF80B2 , FFFF80C8 , FFFF80DE , 
  151. FFFF80F6 , FFFF8110 , FFFF812A , FFFF8146 ,   \ 310
  152. FFFF8163 , FFFF8181 , FFFF81A0 , FFFF81C1 , 
  153. FFFF81E2 , FFFF8205 , FFFF822A , FFFF824F ,   \ 318
  154. FFFF8276 , FFFF829D , FFFF82C6 , FFFF82F1 , 
  155. FFFF831C , FFFF8349 , FFFF8377 , FFFF83A6 ,   \ 320
  156. FFFF83D6 , FFFF8407 , FFFF843A , FFFF846E , 
  157. FFFF84A3 , FFFF84D9 , FFFF8511 , FFFF8549 ,   \ 328
  158. FFFF8583 , FFFF85BE , FFFF85FA , FFFF8637 , 
  159. FFFF8676 , FFFF86B6 , FFFF86F6 , FFFF8738 ,   \ 330
  160. FFFF877B , FFFF87C0 , FFFF8805 , FFFF884C , 
  161. FFFF8894 , FFFF88DD , FFFF8927 , FFFF8972 ,   \ 338
  162. FFFF89BE , FFFF8A0C , FFFF8A5A , FFFF8AAA , 
  163. FFFF8AFB , FFFF8B4D , FFFF8BA0 , FFFF8BF5 ,   \ 340
  164. FFFF8C4A , FFFF8CA1 , FFFF8CF8 , FFFF8D51 , 
  165. FFFF8DAB , FFFF8E06 , FFFF8E62 , FFFF8EBF ,   \ 348
  166. FFFF8F1D , FFFF8F7D , FFFF8FDD , FFFF903E ,
  167. FFFF90A1 , FFFF9105 , FFFF9169 , FFFF91CF ,   \ 350
  168. FFFF9236 , FFFF929E , FFFF9307 , FFFF9371 , 
  169. FFFF93DC , FFFF9448 , FFFF94B5 , FFFF9523 ,   \ 358
  170. FFFF9592 , FFFF9603 , FFFF9674 , FFFF96E6 , 
  171. FFFF9759 , FFFF97CE , FFFF9843 , FFFF98B9 ,   \ 360
  172. FFFF9930 , FFFF99A9 , FFFF9A22 , FFFF9A9C , 
  173. FFFF9B17 , FFFF9B94 , FFFF9C11 , FFFF9C8F ,   \ 368
  174. FFFF9D0E , FFFF9D8E , FFFF9E0F , FFFF9E91 , 
  175. FFFF9F14 , FFFF9F98 , FFFFA01C , FFFFA0A2 ,   \ 370
  176. FFFFA129 , FFFFA1B0 , FFFFA238 , FFFFA2C2 , 
  177. FFFFA34C , FFFFA3D7 , FFFFA463 , FFFFA4F0 ,   \ 378
  178. FFFFA57E , FFFFA60C , FFFFA69C , FFFFA72C , 
  179. FFFFA7BD , FFFFA84F , FFFFA8E2 , FFFFA976 ,   \ 380
  180. FFFFAA0A , FFFFAAA0 , FFFFAB36 , FFFFABCD , 
  181. FFFFAC65 , FFFFACFD , FFFFAD97 , FFFFAE31 ,   \ 388
  182. FFFFAECC , FFFFAF68 , FFFFB005 , FFFFB0A2 , 
  183. FFFFB140 , FFFFB1DF , FFFFB27F , FFFFB31F ,   \ 390
  184. FFFFB3C0 , FFFFB462 , FFFFB505 , FFFFB5A8 , 
  185. FFFFB64C , FFFFB6F1 , FFFFB796 , FFFFB83C ,   \ 398
  186. FFFFB8E3 , FFFFB98B , FFFFBA33 , FFFFBADC , 
  187. FFFFBB85 , FFFFBC2F , FFFFBCDA , FFFFBD86 ,   \ 3A0
  188. FFFFBE32 , FFFFBEDF , FFFFBF8C , FFFFC03A , 
  189. FFFFC0E9 , FFFFC198 , FFFFC248 , FFFFC2F8 ,   \ 3A8
  190. FFFFC3A9 , FFFFC45B , FFFFC50D , FFFFC5C0 , 
  191. FFFFC673 , FFFFC727 , FFFFC7DB , FFFFC890 ,   \ 3B0
  192. FFFFC946 , FFFFC9FC , FFFFCAB2 , FFFFCB69 , 
  193. FFFFCC21 , FFFFCCD9 , FFFFCD92 , FFFFCE4B ,   \ 3B8
  194. FFFFCF04 , FFFFCFBE , FFFFD079 , FFFFD134 , 
  195. FFFFD1EF , FFFFD2AB , FFFFD367 , FFFFD424 ,   \ 3C0
  196. FFFFD4E1 , FFFFD59E , FFFFD65C , FFFFD71B , 
  197. FFFFD7D9 , FFFFD898 , FFFFD958 , FFFFDA18 ,   \ 3C8
  198. FFFFDAD8 , FFFFDB99 , FFFFDC59 , FFFFDD1B , 
  199. FFFFDDDC , FFFFDE9E , FFFFDF61 , FFFFE023 ,   \ 3D0
  200. FFFFE0E6 , FFFFE1A9 , FFFFE26D , FFFFE330 , 
  201. FFFFE3F4 , FFFFE4B9 , FFFFE57D , FFFFE642 ,   \ 3D8
  202. FFFFE707 , FFFFE7CD , FFFFE892 , FFFFE958 , 
  203. FFFFEA1E , FFFFEAE4 , FFFFEBAB , FFFFEC71 ,   \ 3E0
  204. FFFFED38 , FFFFEDFF , FFFFEEC6 , FFFFEF8D , 
  205. FFFFF055 , FFFFF11C , FFFFF1E4 , FFFFF2AC ,   \ 3E8
  206. FFFFF374 , FFFFF43C , FFFFF505 , FFFFF5CD , 
  207. FFFFF695 , FFFFF75E , FFFFF827 , FFFFF8EF ,   \ 3F0
  208. FFFFF9B8 , FFFFFA81 , FFFFFB4A , FFFFFC13 , 
  209. FFFFFCDC , FFFFFDA5 , FFFFFE6E , FFFFFF37 ,   \ 3F8
  210. 0 ,  
  211. \
  212. ." Qsintable in... "
  213.